<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-comment">{-
   OpenAPI Petstore

   This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\

   OpenAPI Version: 3.0.1
   OpenAPI Petstore API version: 1.0.0
   Generated by OpenAPI Generator (https://openapi-generator.tech)
-}</span><span>
</span><a name="line-10"></a><span>
</span><a name="line-11"></a><span class="hs-comment">{-|
Module : OpenAPIPetstore.LoggingKatip
Katip Logging functions
-}</span><span>
</span><a name="line-15"></a><span>
</span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
</span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE RankNTypes #-}</span><span>
</span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE ScopedTypeVariables #-}</span><span>
</span><a name="line-19"></a><span>
</span><a name="line-20"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.LoggingKatip</span><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-21"></a><span>
</span><a name="line-22"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control.Exception.Safe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">E</span><span>
</span><a name="line-23"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control.Monad.IO.Class</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control.Monad.Trans.Reader</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data.Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Lens.Micro</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">L</span><span>
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">System.IO</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">IO</span><span>
</span><a name="line-28"></a><span>
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data.Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC.Exts</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">IsString</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-31"></a><span>
</span><a name="line-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Katip</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">LG</span><span>
</span><a name="line-33"></a><span>
</span><a name="line-34"></a><span class="hs-comment">-- * Type Aliases (for compatibility)</span><span>
</span><a name="line-35"></a><span>
</span><a name="line-36"></a><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
</span><a name="line-37"></a><span class="hs-keyword">type</span><span> </span><a name="LogExecWithContext"><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier">LogExecWithContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679045332"><a href="#local-6989586621679045332"><span class="hs-identifier">m</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">P.MonadIO</span><span> </span><a href="#local-6989586621679045332"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=&gt;</span><span>
</span><a name="line-38"></a><span>                                    </span><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679045332"><span class="hs-identifier hs-type">m</span></a><span>
</span><a name="line-39"></a><span>
</span><a name="line-40"></a><span class="hs-comment">-- | A Katip logging block</span><span>
</span><a name="line-41"></a><span class="hs-keyword">type</span><span> </span><a name="LogExec"><a href="OpenAPIPetstore.LoggingKatip.html#LogExec"><span class="hs-identifier">LogExec</span></a></a><span> </span><a name="local-6989586621679045330"><a href="#local-6989586621679045330"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679045331"><a href="#local-6989586621679045331"><span class="hs-identifier">a</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">LG.KatipT</span><span> </span><a href="#local-6989586621679045330"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679045331"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679045330"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679045331"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-42"></a><span>
</span><a name="line-43"></a><span class="hs-comment">-- | A Katip Log environment</span><span>
</span><a name="line-44"></a><span class="hs-keyword">type</span><span> </span><a name="LogContext"><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier">LogContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-type">LG.LogEnv</span><span>
</span><a name="line-45"></a><span>
</span><a name="line-46"></a><span class="hs-comment">-- | A Katip Log severity</span><span>
</span><a name="line-47"></a><span class="hs-keyword">type</span><span> </span><a name="LogLevel"><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier">LogLevel</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-type">LG.Severity</span><span>
</span><a name="line-48"></a><span>
</span><a name="line-49"></a><span class="hs-comment">-- * default logger</span><span>
</span><a name="line-50"></a><span>
</span><a name="line-51"></a><span class="hs-comment">-- | the default log environment</span><span>
</span><a name="line-52"></a><span class="hs-identifier">initLogContext</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span>
</span><a name="line-53"></a><a name="initLogContext"><a href="OpenAPIPetstore.LoggingKatip.html#initLogContext"><span class="hs-identifier">initLogContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG.initLogEnv</span><span> </span><span class="hs-string">&quot;OpenAPIPetstore&quot;</span><span> </span><span class="hs-string">&quot;dev&quot;</span><span>
</span><a name="line-54"></a><span>
</span><a name="line-55"></a><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
</span><a name="line-56"></a><span class="hs-identifier">runDefaultLogExecWithContext</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span>
</span><a name="line-57"></a><a name="runDefaultLogExecWithContext"><a href="OpenAPIPetstore.LoggingKatip.html#runDefaultLogExecWithContext"><span class="hs-identifier">runDefaultLogExecWithContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG.runKatipT</span><span>
</span><a name="line-58"></a><span>
</span><a name="line-59"></a><span class="hs-comment">-- * stdout logger</span><span>
</span><a name="line-60"></a><span>
</span><a name="line-61"></a><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
</span><a name="line-62"></a><span class="hs-identifier">stdoutLoggingExec</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span>
</span><a name="line-63"></a><a name="stdoutLoggingExec"><a href="OpenAPIPetstore.LoggingKatip.html#stdoutLoggingExec"><span class="hs-identifier">stdoutLoggingExec</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#runDefaultLogExecWithContext"><span class="hs-identifier hs-var">runDefaultLogExecWithContext</span></a><span>
</span><a name="line-64"></a><span>
</span><a name="line-65"></a><span class="hs-comment">-- | A Katip Log environment which targets stdout</span><span>
</span><a name="line-66"></a><span class="hs-identifier">stdoutLoggingContext</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span>
</span><a name="line-67"></a><a name="stdoutLoggingContext"><a href="OpenAPIPetstore.LoggingKatip.html#stdoutLoggingContext"><span class="hs-identifier">stdoutLoggingContext</span></a></a><span> </span><a name="local-6989586621679047770"><a href="#local-6989586621679047770"><span class="hs-identifier">cxt</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-68"></a><span>    </span><a name="local-6989586621679047998"><a href="#local-6989586621679047998"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-identifier hs-var">LG.mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG.ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO.stdout</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG.permitItem</span><span> </span><span class="hs-identifier hs-var">LG.InfoS</span><span class="hs-special">)</span><span> </span><span class="hs-identifier hs-var">LG.V2</span><span>
</span><a name="line-69"></a><span>    </span><span class="hs-identifier hs-var">LG.registerScribe</span><span> </span><span class="hs-string">&quot;stdout&quot;</span><span> </span><a href="#local-6989586621679047998"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG.defaultScribeSettings</span><span> </span><a href="#local-6989586621679047770"><span class="hs-identifier hs-var">cxt</span></a><span>
</span><a name="line-70"></a><span>
</span><a name="line-71"></a><span class="hs-comment">-- * stderr logger</span><span>
</span><a name="line-72"></a><span>
</span><a name="line-73"></a><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
</span><a name="line-74"></a><span class="hs-identifier">stderrLoggingExec</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span>
</span><a name="line-75"></a><a name="stderrLoggingExec"><a href="OpenAPIPetstore.LoggingKatip.html#stderrLoggingExec"><span class="hs-identifier">stderrLoggingExec</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#runDefaultLogExecWithContext"><span class="hs-identifier hs-var">runDefaultLogExecWithContext</span></a><span>
</span><a name="line-76"></a><span>
</span><a name="line-77"></a><span class="hs-comment">-- | A Katip Log environment which targets stderr</span><span>
</span><a name="line-78"></a><span class="hs-identifier">stderrLoggingContext</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span>
</span><a name="line-79"></a><a name="stderrLoggingContext"><a href="OpenAPIPetstore.LoggingKatip.html#stderrLoggingContext"><span class="hs-identifier">stderrLoggingContext</span></a></a><span> </span><a name="local-6989586621679047999"><a href="#local-6989586621679047999"><span class="hs-identifier">cxt</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-80"></a><span>    </span><a name="local-6989586621679048000"><a href="#local-6989586621679048000"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-identifier hs-var">LG.mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG.ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO.stderr</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG.permitItem</span><span> </span><span class="hs-identifier hs-var">LG.InfoS</span><span class="hs-special">)</span><span> </span><span class="hs-identifier hs-var">LG.V2</span><span>
</span><a name="line-81"></a><span>    </span><span class="hs-identifier hs-var">LG.registerScribe</span><span> </span><span class="hs-string">&quot;stderr&quot;</span><span> </span><a href="#local-6989586621679048000"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG.defaultScribeSettings</span><span> </span><a href="#local-6989586621679047999"><span class="hs-identifier hs-var">cxt</span></a><span>
</span><a name="line-82"></a><span>
</span><a name="line-83"></a><span class="hs-comment">-- * Null logger</span><span>
</span><a name="line-84"></a><span>
</span><a name="line-85"></a><span class="hs-comment">-- | Disables Katip logging</span><span>
</span><a name="line-86"></a><span class="hs-identifier">runNullLogExec</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span>
</span><a name="line-87"></a><a name="runNullLogExec"><a href="OpenAPIPetstore.LoggingKatip.html#runNullLogExec"><span class="hs-identifier">runNullLogExec</span></a></a><span> </span><a name="local-6989586621679048001"><a href="#local-6989586621679048001"><span class="hs-identifier">le</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG.KatipT</span><span> </span><a name="local-6989586621679048002"><a href="#local-6989586621679048002"><span class="hs-identifier">f</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">P.runReaderT</span><span> </span><a href="#local-6989586621679048002"><span class="hs-identifier hs-var">f</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">L.set</span><span> </span><span class="hs-identifier hs-var">LG.logEnvScribes</span><span> </span><span class="hs-identifier hs-var">mempty</span><span> </span><a href="#local-6989586621679048001"><span class="hs-identifier hs-var">le</span></a><span class="hs-special">)</span><span>
</span><a name="line-88"></a><span>
</span><a name="line-89"></a><span class="hs-comment">-- * Log Msg</span><span>
</span><a name="line-90"></a><span>
</span><a name="line-91"></a><span class="hs-comment">-- | Log a katip message</span><span>
</span><a name="line-92"></a><span class="hs-identifier">_log</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Applicative</span><span> </span><a href="#local-6989586621679045929"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">LG.Katip</span><span> </span><a href="#local-6989586621679045929"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679045929"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><a name="line-93"></a><a name="_log"><a href="OpenAPIPetstore.LoggingKatip.html#_log"><span class="hs-identifier">_log</span></a></a><span> </span><a name="local-6989586621679048003"><a href="#local-6989586621679048003"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679048004"><a href="#local-6989586621679048004"><span class="hs-identifier">level</span></a></a><span> </span><a name="local-6989586621679048005"><a href="#local-6989586621679048005"><span class="hs-identifier">msg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-94"></a><span>  </span><span class="hs-identifier hs-var">LG.logMsg</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">T.unpack</span><span> </span><a href="#local-6989586621679048003"><span class="hs-identifier hs-var">src</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679048004"><span class="hs-identifier hs-var">level</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG.logStr</span><span> </span><a href="#local-6989586621679048005"><span class="hs-identifier hs-var">msg</span></a><span class="hs-special">)</span><span>
</span><a name="line-95"></a><span>
</span><a name="line-96"></a><span class="hs-comment">-- * Log Exceptions</span><span>
</span><a name="line-97"></a><span>
</span><a name="line-98"></a><span class="hs-comment">-- | re-throws exceptions after logging them</span><span>
</span><a name="line-99"></a><span class="hs-identifier">logExceptions</span><span>
</span><a name="line-100"></a><span>  </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">LG.Katip</span><span> </span><a href="#local-6989586621679045333"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">E.MonadCatch</span><span> </span><a href="#local-6989586621679045333"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Applicative</span><span> </span><a href="#local-6989586621679045333"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
</span><a name="line-101"></a><span>  </span><span class="hs-glyph">=&gt;</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679045333"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679045334"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679045333"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679045334"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-102"></a><a name="logExceptions"><a href="OpenAPIPetstore.LoggingKatip.html#logExceptions"><span class="hs-identifier">logExceptions</span></a></a><span> </span><a name="local-6989586621679048043"><a href="#local-6989586621679048043"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-103"></a><span>  </span><span class="hs-identifier hs-var">E.handle</span><span>
</span><a name="line-104"></a><span>    </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><a name="local-6989586621679048231"><a href="#local-6989586621679048231"><span class="hs-identifier">e</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">E.SomeException</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-105"></a><span>       </span><a href="OpenAPIPetstore.LoggingKatip.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679048043"><span class="hs-identifier hs-var">src</span></a><span> </span><span class="hs-identifier hs-var">LG.ErrorS</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-identifier hs-var">T.pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679048231"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
</span><a name="line-106"></a><span>       </span><span class="hs-identifier hs-var">E.throw</span><span> </span><a href="#local-6989586621679048231"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
</span><a name="line-107"></a><span>
</span><a name="line-108"></a><span class="hs-comment">-- * Log Level</span><span>
</span><a name="line-109"></a><span>
</span><a name="line-110"></a><span class="hs-identifier">levelInfo</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a><span>
</span><a name="line-111"></a><a name="levelInfo"><a href="OpenAPIPetstore.LoggingKatip.html#levelInfo"><span class="hs-identifier">levelInfo</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG.InfoS</span><span>
</span><a name="line-112"></a><span>
</span><a name="line-113"></a><span class="hs-identifier">levelError</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a><span>
</span><a name="line-114"></a><a name="levelError"><a href="OpenAPIPetstore.LoggingKatip.html#levelError"><span class="hs-identifier">levelError</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG.ErrorS</span><span>
</span><a name="line-115"></a><span>
</span><a name="line-116"></a><span class="hs-identifier">levelDebug</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a><span>
</span><a name="line-117"></a><a name="levelDebug"><a href="OpenAPIPetstore.LoggingKatip.html#levelDebug"><span class="hs-identifier">levelDebug</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG.DebugS</span><span>
</span><a name="line-118"></a><span>
</span><a name="line-119"></a></pre></body></html>